home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win2K Start Menu 1.xpl < prev    next >
Text File  |  2003-02-16  |  3KB  |  122 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Windows 2000"
  5. "NAME"="Visible Items"
  6. "VERSION"="2.12"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0001"
  9. "TEXT 1"="Aha! You can't see this!"
  10. "DESCRIPTION 1"="Use this plug-in to show or hide some of the items in the Start menu."
  11. "DESCRIPTION 2"="NOTE: Hiding the Run option will not disable the WINDOWS+R key combination, so users will still be able to access the Run command."
  12. "DESCRIPTION 3"="NOTE: Hiding the Search option will also disable the F3 key to search from Explorer."
  13. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to SIMONORORKE for the Windows 2000 Logoff option!"
  17. "COMMENT 2"="Thanks to myme@gmx.net for the "Search dissabled also F3" notice!"
  18.  
  19.  
  20.  sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  21. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"
  22.  
  23. sV1=sP2 & "StartMenuFavorites"
  24. sV2=sP & "NoRecentDocsMenu"
  25. sV3=sP2 & "StartMenuRun" '<>!
  26. sV4=sP & "NoClose"
  27. sV5=sP & "NoFind"
  28. sV6=sP2 & "StartMenuLogoff" '<>!
  29. sV7=sP & "NoSMHelp"
  30. sV8=sP & "NoSMConfigurePrograms"
  31.  
  32.  
  33. SUB Plugin_Initialize
  34.  Call SetUIElement(1,"Favorites")
  35.  Call ReadIt_2(1,sV1)
  36.  
  37.  Call SetUIElement(2,"Documents")
  38.  Call ReadIt(2,sV2)
  39.  
  40.  Call SetUIElement(3,"Run...")
  41.  Call ReadIt_2(3,sV3)
  42.  
  43.  Call SetUIElement(4,"Shut Down...")
  44.  Call ReadIt(4,sV4)
  45.  
  46.  Call SetUIElement(5,"Search") 
  47.  Call ReadIt(5,sV5)
  48.  
  49.  Call SetUIElement(6,"Log Off <username>...")
  50.  Call ReadIt_2(6,sV6)
  51.  
  52.  Call SetUIElement(7,"Help")
  53.  Call ReadIt(7,sV7)
  54.  
  55.  Call SetUIElement(8,"Set Program Access and Defaults (SP3)")
  56.  Call ReadIt(8,sV8)
  57. END SUB
  58.  
  59. 'Called when the Plugin should apply the changes
  60. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  61.  Call WriteIt_2(1,sV1)
  62.  Call WriteIt(2,sV2)
  63.  Call WriteIt_2(3,sV3)
  64.  Call WriteIt(4,sV4)
  65.  Call WriteIt(5,sV5)
  66.  Call WriteIt_2(6,sV6)
  67.  Call WriteIt(7,sV7)
  68.  Call WriteIt(8,sV8)
  69.  
  70.  Call IndicateSettingChange()
  71. END SUB
  72.  
  73. Sub ReadIt(ITM,PATH1)
  74.  if RegValueExists(PATH1)=false then 'setting available?
  75.     'no setting -> item visible
  76.     Call SetUIElementEx(ITM,true)
  77.  else
  78.     i=RegReadValue(PATH1)
  79.     if i=0 then 
  80.        Call SetUIElementEx(ITM,true)
  81.     end if
  82.  end if
  83. End Sub
  84.  
  85. Sub ReadIt_2(ITM,PATH1)
  86.  if RegValueExists(PATH1)=false then 'setting available?
  87.     'no setting -> item not visible
  88.     Call SetUIElementEx(ITM,false)
  89.  else
  90.     i=RegReadValue(PATH1)
  91.     if i=1 then 
  92.        Call SetUIElementEx(ITM,true)  
  93.     end if
  94.  end if
  95. End Sub
  96.  
  97.  
  98. Sub WriteIt(ITM,PATH1)
  99.  b=GetUIElementEx(ITM)
  100.  if b=true then
  101.  
  102.     s=RegReadValue(PATH1)
  103.     if IsEmpty(s)=false then
  104.        Call RegDeleteValue(PATH1)
  105.     end if
  106.  
  107.  else
  108.     Call RegWriteValue(PATH1,1,2)
  109.  end if
  110. End Sub
  111.  
  112. Sub WriteIt_2(ITM,PATH1)
  113.  b=GetUIElementEx(ITM)
  114.  if b=true then
  115.     Call RegWriteValue(PATH1,1,2)
  116.  else
  117.     Call RegWriteValue(PATH1,0,2)
  118.  end if
  119. End Sub
  120. SUB Plugin_Terminate
  121. END SUB
  122.